;e (setq $print-project-monthly nil)
;e (setq $print-project-gs nil)
read (salary in dsk (pro he))
exe (bis gs dsk (pro he))
read (bis in dsk (pro he))
project total (full out dsk (pro he))